home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.01 Jan 89 / EvSimulator / MakeKey.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-13  |  976 b   |  54 lines  |  [TEXT/KAHL]
  1. /***************
  2.  ** MakeKey.c **
  3.  ***************/
  4.  
  5. #include <OSUtil.h>
  6. #include <EventMgr.h>
  7.  
  8. MakeKey(Code,Mods)
  9. int Code, Mods;
  10. {
  11.  
  12. /* locals */
  13.  
  14. EvQElPtr MyEventPtr;
  15. QHdrPtr TheHdr;
  16.  
  17. /* begin executable */
  18.  
  19. /*    1: Key Down */
  20.  
  21. MyEventPtr = (EvQElPtr) NewPtr ( sizeof(EvQEl) );
  22.  
  23. TheHdr = GetEvQHdr();
  24.  
  25. MyEventPtr->qType = evType;
  26. MyEventPtr->evtQWhat = 3;
  27. MyEventPtr->evtQMessage = Code;
  28. MyEventPtr->evtQWhen = TickCount();
  29. MyEventPtr->evtQWhere.h = 200;
  30. MyEventPtr->evtQWhere.v = 200;
  31. MyEventPtr->evtQModifiers = Mods;
  32.  
  33. Enqueue (MyEventPtr, TheHdr);
  34.  
  35. /*    2: Key Up */
  36.  
  37. /*** For most applications, Key Up is unneeded ***
  38.  
  39. MyEventPtr = (EvQElPtr) NewPtr ( sizeof(EvQEl) );
  40.  
  41. MyEventPtr->qType = evType;
  42. MyEventPtr->evtQWhat = 4;
  43. MyEventPtr->evtQMessage = Code;
  44. MyEventPtr->evtQWhen = TickCount();
  45. MyEventPtr->evtQWhere.h = 361;
  46. MyEventPtr->evtQWhere.v = 98;
  47. MyEventPtr->evtQModifiers = Mods;
  48.  
  49. Enqueue (MyEventPtr, TheHdr);
  50.  
  51. *** For most applications, Key Up is unneeded ***/
  52.  
  53. }
  54.